home *** CD-ROM | disk | FTP | other *** search
/ Nuova Ford Fiesta / Nuova Ford Fiesta.iso / qtwin5 / qt5.dir / 00003_Script_3 < prev   
Text File  |  2001-11-23  |  685b  |  35 lines
  1. global gTaskID
  2.  
  3. on exitFrame me
  4.   if taskName(gTaskID) starts "QuickTimeInstal" then
  5.     go to the frame
  6.   else
  7.     mP = the moviePath
  8.     
  9.     the itemDelimiter = "\"
  10.     delete the last item of mP
  11.     delete the last item of mP
  12.     
  13.     open (mP & "\Fiesta.exe")
  14.     
  15.     quit
  16.   end if
  17. end
  18.  
  19. on taskName taskID
  20.   if mappWindowsFlavor() = "winNT" then
  21.     vTaskList = mappGetTaskList()
  22.     
  23.     repeat with i = 1 to vTaskList.line.count
  24.       taskInfo = vTaskList.line[i]
  25.       
  26.       if taskInfo.item[2] = taskID then
  27.         return taskInfo.item[1]
  28.       end if
  29.     end repeat
  30.     
  31.     return VOID
  32.   else
  33.     return mappTaskName(taskID)
  34.   end if
  35. end